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MEMORY MANAGEMENT SERVICES TEST #1 


“TRTLS BB ER OL SE - TEST OF SCRETVA/SDELTVA/S$SETPRT SYSTEM SERVICES 


. 
Se er Te eT TED 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED 


THIS SOFTWARE 4 Tole a LICENSE AND MAY BE USED AND COPIED 


te 
® 
® 
* 
® 
® 
a 
te 
® 
PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. * 
® 
THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
* 
te 
® 
® 
x 
® 
w 
* 


AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONS w 


I FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH 


Y 
NOT SUPPLIED BY DIGITAL. 
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; FACILITY: USER MODE MEMORY MANAGEMENT SERVICES TEST 

; ABSTRACT: THIS SET OF ROUTINES TESTS THE MEMORY MANAGEMENT SERVICES 
; ENVIRONMENT: USER MODE DIAGNOSTIC 

> AUTHOR: PETER H. LIPMAN , CREATION DATE: 6-JAN-77 

; MODIFIED BY: 

; vo2-012 $Hz0009 Stephen Zalewski 20-Aug-1980 

; dded further tests to system services tested in this 


8 ram. Also incorporated program into MMG test 
package. 
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~SBTTL DECLARATIONS 

INCLUDE FILES: 
-SBTTL MACROS 


; MACROS: 


D S$I1Z=#1,ADR=(R2),7L1,7L2 
Z>,<ADR>,L1 
E 


ADERR,R1 
PROBERR 


-ENDM READ 


MACRO. WRITE SIZ=#1,ADR=(R2),?7L1,?7L2 
oo <$1Z>,<ADR>,L1 


L 
W*WRITERR,R1 
BSBW PROBERR 


-ENDM = =6WRITE 


.MACRO NOREAD SIZ=#1 
iFNORD <SI2Z2>,<ADR>,Li 
MOVAL WNOREADERR.R1 
BSBW  PROBERR 


.ENDM NOREAD 

.MACRO NOWRITE SIZ=#1,ADR=(R2),?L1 
IFNOWRT <SIZ>,<ADR>,L1 

MOVAL WNOWRITERR.R1 

BSBW. | PROBERR 

.ENDM NOWRITE 


2 
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ADR=(R2),?L1 


Cc 
— 
ro 
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IF NB, STARTVA 
MOVL § STARTVA,W* INRANGE 
.ENDC 

“IF NB, ENDVA 

MOVL ENOVA,W*INRANGE+4 


.ENDC 
MOVZWL STATUS,R3 
MOVAL INADR,RO 
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-MACRO CRETVA STARTVA,ENDVA, STATUS=S*°#SS$_NORMAL ,- 
INADR=W* INRANGE , RE TADR=W“RE TRANGE 
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105 MOVAL RETADR,R1 
1 6 BSBW CRETVASUBR 
1 NLIST 
8 .ENDM = CRETVA 
1 0 FARRAR AEE AE AREER A EAE AARAAAAARAAAEEAEAAAAREAEAAAEAEAAAATAAAAAKEAAe Eee 
111 : THIS MACRO DELETES THE CURRENT VA ADDRESSES. ALSO HIDDEN IN THIS 
118 ; MACRO IS A TEST TO SEE IF A DELETE GLOBAL SECTION MUST ALSO BE 
00 113 : INVOKED. THIS OCCURS DURING THE SECOND AND THIRD RUNS OF THE TEST 
00 114 : PROGRAM WHEN GLOBAL SECTION MAPPING AND PFN MAPPING ARE USED. 
0 12 FERRARA AAA AERA AEA AE AREA AAA AKAKEAEKARAKAAKEHee Ae 
88 113 «MACRO DELTVA STARTVA,ENDVA, STATUS=S“#SS$_NORMAL, - 
09 13 + est INADR=W* INRANGE ,RETADR=W“RETRANGE, ?L1 
00 120 CMPW 39s W*WHICHRUN, #RUN1 :1F USING MAPPED SECTIONS FOR TESTS, 
00 121 BLEQ =_L1 :DELETE SECTION AND THEN DO A DELTVA 
00 1 : $DGBLSC_S - 
00 1 GSDNAM=<W*GBLSECNAM> 
00 1246 L1: 
00 125 IF NB, STARTVA 
00 126 MOVL  STARTVA,W*INRANGE 
00 127 .ENDC 
00 128 “IF NB, ENDVA 
00 129 MOVL —_ ENDVA, W* INRANGE +4 
00 130 .ENDC 
00 131 MOVZWL STATUS,R3 
00 132 MOVAL INADR,RO 
00 1 MOVAL  RETADR,R1 
00 134 BSBW  DELTVASUBR 
00 135 
00 136 NLIST 
00 137 .ENDM  DELTVA 
00 139 .MACRO EXPREG PAGCNT,REGION=#0,STATUS=S“#SS$_NORMAL , - 
00 140 RETADR=W*RETRANGE 
00 141 LIST 
00 148 MOVZWL STATUS,R3 
00 14 MOVL  PAGCNT.R 
00 144 MOVAL RETADR,R1 
00 145 IF 1DN,<REGION>, <#0> 
00 146 CLRL RS 
00 147 FF 
00 148 VL —s- REGION, RS 
14 .ENDC 
9 150 SBW  EXPREGSUBR 
151 NLIST 
138 .ENDM  EXPREG 
o 154 .MACRO SETPRT ACC,STARTVA, ENDVA, STATUS=S°#SS$_NORMAL ,- 
0 155 INADR=W* INRANGE , RE TADR=W*RETRANGE , - 
136 PRVPRT=NONE ,PRVPRTADR 
15 LIST 
138 IF NB, STARTVA 
1 MOVL  STARTVA,W* INRANGE 
160 .ENDC 
161 IF NB, ENDVA 


Soooosoo 


— Ee 


1 
MMGCRDLSP OF SCRETVA/SDELTVA/$ TPRT YSTEM 1 P=1984 7: 
yOe EL SE SYSTE ~SEP-19 t Bl: 2/ +38 yaneyee 0 V04-00 Page 4 


- TEST 
MACROS -SEP=1984 MMGTST.SRCIMMGCRDLSP.MAR: 1 (2) 
MOV ENDVA,W* INRANGE +4 

MOVZWL STATUS,R3 

MOVAL R 


MOVAL RETADR R1 
MOVZBL S*#PRTS$C_' 
MOVZBL SRPRTSC= :PRYBRT, R5 


IF RVP 
“IF Bir <PRVPRT> <NONE> 
HOVAL W*PREVPROT,R6 

CLRL RG 

END 

*IFF 


wt, PRVPRTADR ,R6 
BSBW SETPRTSUBR 

NLIST 

-ENDM = =SETPRT 


THIS MACRO USED TO CREATE PERMANENT GLOGAL SECTIONS, THE FILE NAME 


COoOOoCCCOOOCOOSOSOSOSOSOSOSOSOSOOSOSOSOOOOOOOOOOOOOOOoOO 


SOSOCOCSCSOOSOSOOOOSOOOOOOOSOOOSOOOOOSSS SOOOSOOOOOOCO OOOO OOOOOOOOoOSoOSO 


mOVZUL STATUS ,R3 


tt 3  F MQOODODOOOO OOOO OOO OO O0900 0000 09 09 09 09 09 09 SI NIN NSIS SIO AAAAAAO 
DNA WN 9 OD NAN EWN HO OD NA UNE WN  O ODNAUE WIN 9 OB NOAM EWN O OONAUE UT 


PROPOPOPOPOPONOPOMOMONOPINOMONPONOPONYIRD) 2 tt 


SOOOSOSCOCSCOSOSOOOSOOOOOOOOSOOOOOSOSOOSOOOOSOOOOOOOCOO OOOO OOOOOOOOOOO 


0 ; 
9 : THIS MACRO USED TO CREATE PERMANENT GLOBAL SECTIONS. THE FILE NAME 
: AND GBL SECTION DEVICE NAME ARE DECLARED INDEPENDANTLY OF THIS MACRO 
9 ; AND ARE PUSHED ONTO THE STACK MANUALY BEFORE THE $CRMPSC SERVICE IS 
0 ; 
9 + ALSO NOTE THE TEMPORARY FIX LOCATED AT THE BOTTOM OF THE MACRO. T 
: FIX IS NEEDED BEC HE LAST GLOBAL SECTION MAY NOT HAVE BEEN DELETED 
0 : BY THE TIME THE NEXT MAPPED SECTION IS CREATED H 
0 ; RETURNED ERROR IS TRAPPED AND THE SECTION IS REMAPPED UNTI 
; SUCCESS CODE IS RETURNED. THIS BUG IS SLATED TO BE FIXED. 
0 : 1S ACCOMPLISHED REFER TO THE COMMENTS ABOVE THE FIX TO SETERMING OHAY 
0 : LINES SHOULD BE REMOVED TO DELETE THE P 
3 5 Sis cetaeetandiosteoesribbecetionnnense cerciedinihnaneiniiniiaabnemiinndinin 
0 .MACRO CREMAPSEC - 
3 STARTVA i 
0 STATUS 7 
INADR=<W* INRANGE>, = ; INPUT RANGE 
0 RETADR=<W*RETRANGE> ,~ SRETURN RANGE 
0 FLAGS=#0 :SECTION FLAGS 
0 GSDNAM=<W*GBLSECNAM>, ° ‘GLOBAL SECTION NAME 
R SRELATIVE PAGE 
PILNAR=<W*F ILENAAE>, - [FILE NAME 
0 PAGCNT=#0 [MAX SIZE OF SECTION 
0 yBN=#0 - [STARTING WIRT BLK NO. IN FILE 
6 LIST 
0 .1F NB, STARTVA 
6 mov. STARTVA, W* INRANGE 
“IF NB, ENDVA 
ROVE ENDVA,W* INRANGE +4 
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MACROS ~$eE= 1382 8} 3h: 3 LANGY St T.SRCIMMGCROLSP.MAR; 1 . (2) 
1 PUSHL  VBN 
PUSHL PAGCNT 
SPUSHADR FILNAM 
PUSHL 
SPUSHADR GSDNAM 
4 PUSHL FLA 
5 SPUSHADR RETADR 
§ SPUSHADR INADR 
reat ta CALLS #8,LIB$_CREMAPSEC 
§ 7 IN ORDER TO DELTE THE PATCH MENTIONED ABOVE SIMPLY REMOVE THE LINES FROM 

8 3 9: ;HERE TO THE NEXT SET OF ASTERICS. 

4 § CMPL #*X1828A,R0 ; IF PREVIOUS GBL SECTION HASN'T 
000 BEQL L1 ;BEEN DELETED TRY CREMAPSEC AGAIN. 
0 4 jeenenee 

$608 5 MOVAL W*CRMPSCERR,R1 

44 § BSBW CHECK1 

0 NLIST 

8008 He -ENDM CREMAPSEC 

0000 TAME CESSES SST TPT TT PPT TTT rrr rrr rrr iti titi iii iii i iii tiiiiiiiiicy 

0000 41 ; THIS MACRO IS ysED TO DETERMINE WHETHER THE MAKEVA SHOULD BE 

4 tg 3; TRANSLATED INTO A $CRETVA, A $CRMPSC USING GLOBLAL SECTIONS, 

000 45 ; OR A SCRMPSC USING PFN MAPPING. THE DECISION IS BASED UPON WHICH 

44 rf ; RUN THE PROGRAM IS CURRENTLY IN. 

0000 46 ; ALSO NOTE THAT THE FIX THAT WAS APPLIED TO wort MACRO LOCATED 

0000 47 ; ABOVE, WAS ALSO APPLIED TO Ua tah | CALL LOCATED IN THE THIRD 

0000 48 ; PART OF THIS MACRO. UPON THE FIX OF THIS BUG REFER TO THE 

44 49 ; FIXED AREA TO FIND OUT WHAT MUST BE DELETED IN ORDER TO GET RID 

0600 50 ; OF THE TEMPORARY PATCH 

0000 23 i PITITITITITITITII LILI TILILI TILL LL LLL LLL LLL LLL LLL LLL LLL LLL LiL ii 

099 3g | eMACRO MAKEVA STARTVA Ow. Srare =S“#SS$_NORMAL ,?L1,?7L2,7L10,?L20,- 
000 254 7130,7L4 

0000 255 LIST 

Oho 528 U1 CASEL W*WHICHRUN, #1, #RUNMAX 
80 58 eWORD L10-L1 :1F FIRST RUN USE CRETVA. 

0 59 eWORD L20-L1 ;1F SECOND USE GBL CREMAPSEC 
3 $i £10 -WORD L50-L1 3I1F THIRD USE PFN MAPPING 
66 CRETVA STARTVA,ENDVA,STATUS=STAT 
6 LIST 
64 BRW L40 
65 L20: 
66 encstealaeas 7 Phd LE: Stat US=STAT,- 
6 WcSECOM GBL ! SECSM_PERM! SECSM_DZRO!SECSM_WRT>,- 
p $8 LIST PhCENTS # 
is BRW L40 
71 L30: 
i IF NB, STARTVA 
7 MOVL § STARTVA,W* INRANGE 
74 -ENDC 
75 IF NB ,,ENDVA 
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MOVL  ENDVA, W* INRANGE +4 
. MOVZWL STAT,R3 
SCRMPSC_S 


“TNADR=<W* INRANGE>, 
RE TADR=<W*RETRANGE>, = 


> EQUATED SYMBOLS: 


SSSDEF :DEFINE SYSTE 

$SECDEF [DEFINE SECTI 

SPRIDEF 

$GBLINI 

$VIELD CTL,0,< :PEFINE CONTR 
<MEALOOP, ,MASK>,- :LOOP IN MEMO 
<TSTLOOP, ,MASK>, = [REDO ENTIRE 
<PIDMSG, ,-MASK>,- *PUT PROCESS 
<RNGCHK, ,MASK>= [ON IF CHECKI 


RUN1=1 


UN2=2 
RUNMAX=3 
PRT$SC_NONE=1a4 
OWN STORAGE: 


POPIPINIPONIPIPINIDD 2 9 OO POO OOOOOOCOO OOOO OOOO OO OOO9 00090000 090008 SII 


DOONAN WIR @ OOO NAULS WIN $C OD NA UE WIN 3 SO OO NAUE WIN (CO OONAU EW OOOnIO 
_ Se 
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GSDNAM=<W*GBLSECNAM® ,~ 
FLAGS cSECSH, GBL! SECSM_PERM! SECSM_PFNMAP! SECS$M_WRT>,- 
ae PAGCNT=# 
SIN ORDER TO REMOVE THE TEMPORARY FIX EX PLAINED ABOVE REMOVE THE LINES 
[STARTING FROM HERE AND EXTENDING THE THE NEXT SET OF ASTERICS. 
. CMPL #*X1828A,RO ;1F PREVIOUS cB SECTION 
abe BEQL L2 ‘BEEN DELETED EREMAPSEC NGAIN. 
MOVAL W*CRMPSCERR,R1 
BSBW = CHECK1 
L40: 
NLIST 
ENDM MAKEVA 
MACRO RANGECHK ONOROFF 
IF IDN <ONOROFF>,<OFF> 
a BICL #CTLSM_RNGCHK,W*CTLFLG 
: BISL  #CTLSM_RNGCHK,W*CTLFLG 
-ENDC 
NLIST 
ENDM RANGECHK 


9A 
20 53 53 45 3 sf 35 0 


60000182 


00000800 
0000 
00000800 


- TEST OF 
v04- DATA STOR 
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AND MESSAGE STRINGS Been eee Ohio eee eee ete mans? oS) 
“SBTTL STORAGE AND MESSAGE STRINGS 
"PSECT DATAO,PAGE WRT ,NOEXE 
INRANGE 
: -BLKL 
RETRANGE: 
*BLKL 


sPROCESS ID 


DATA 

2 

2 

FrLen, TSTLOOP! CTLSM_PIDMSG 
1 

3 NUMBER OF PASSES TO RUN 
1 

3 

1 


LKL 
LKL 
ONG 
4 L :PASS COUNTER 
44 MAXWHICHRUN 
45 LONG ;NUMBER OF RUNS 
46 WHICHRUN: 
4 -BLKL ;WHICH RUN COUNTER 
48 PREVPROT: 
FAB:  $FAB  FAC=PUT, FNASOUTNAMADR, FNS=OUTNAMSIZ ;FAB FOR OUTPUT 
RAB: $RAB ss FAB=FAB sRECORD ACCESS BLOCK FOR OUTPUT 
MSGLEN: .BLKL 1 SRETURN LENGTH FROM 
NSGBUFD: LONG MSGBUFSIZ,MSGBUF ‘MESSAGE BUFFER DESCRIPTOR 


MSGBUF -PIDMSG ,PIDMSG 


+ eeee® DO NOT SEPARATE OR REORDER THE FOLLOWING LINES 
MSGBUF ID: 
CRL -BYTE “015,°012 
ASCII sPROtESS $ 
PIDMSG: .ASCII $ 
MSGBUF: :BLKB 160 
MSGBUF S1Z=. -MSGBUF 


sexe DO NOT SEPARATE OR REORDER THE PRECEEDING LINES 


sMESSAGE BUFFER USED BY FAO 


.PSECT 
WRTIPAGES: 


»PSECT 
RDPAGES: 
~BLKL 


SSNS NIAAA AAA AAA A MMINIIUIUIUU e 
AIF WN $9 OBNOAUE WN" OOO NOU SW O 0 


DATA1,PAGE ,WRT ,NOEXE 


128*4 
DATA2, PAGE ,NOWRT ,NOEXE 
128*4 


Page 
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ou 


XL = !XL!/$ 
XL = !XL!/$ 


RETADR = !XL = !XL!/$ 


RETADR = 
RETADR = 


PAGCNT = !SL, REGION = P!UB SPACE, $ 


INADR = !XL = !XL, 
INADR = !XL = !XL, 
INADR = !XL = !XL, 


1 
$!/DELTVA ERROR = PC = !ML, STATUS WAS !XL, SHOULD BE !XL$ 


$!/CRMPSC ERROR - PC = !XL, STATUS WAS !XL, SHOULD BE !XLS$ 


T SYSTEM 19 
/SYSSOUTPUT/ 
SRETADR = !XL = !XL!/$ 


N 
$!/ 
$!/ 
$!/ 


7 
135 
eASCII $!/CRETVA ERROR = PC = !XL, STATUS WAS !XL, SHOULD BE !XL$ 
$!/ 


»ASCIIT $!/EXPREG ERROR - PC = !XL, STATUS WAS !XL, SHOULD BE !XL$ 


~PSECT CODE ,PAGE ,NOWRT EXE 


E 
S 
CODEPAGES: 
OUTNAMADR 
CRETVAERRSIZ=.-CRETVAERRADR 


DELTVAERRADR: 
DELTVAERRSIZ=.-DELTVAERRADR 


96 CRMPSCERRADR: 
CRMPSCERRSIZ=.-CRMPSCERRADR 


0 
61 EXPREGERRADR: 
EXPREGERRSIZ=.-EXPREGERRADR 


OUTNAMSIZ=.-OUTNAMADR 


ASCII 
CRETVAERRADR: 


ASCII 

ASCII 
-ASCII 
ASCII 

ASCII 
ASCII 
ASCII 


E 
A 
? 
0 
4 
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8 
9 
9 
9 
393 
94 
95 
97 
398 
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402 
403 
404 
405 
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TEST WILL NOW BE RUN USING REGULAR VA SPACE 


Stem 19 


C 


PRT SY 
$'/ $ 
RUN1_MSGSiZ=.-RUN1_MSGADR 


IDMSGS1Z=.-1DMSGADR 
$!/ 


MSGADR: 


-ASCII 


$B a, 


4 
4 


- TEST O 
DATA STO 


TEST WILL NOW BE RUN USING PERM GBL SECTIONS ‘#e#ee$ 


eeere 


$!/ 
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Nwwosy NWN ou 
owmovwd ownoco 
NWMATOWNCU NATO 
IOOMo <xoowo 
NNN enw 
<r~eounnu <~vuwe 
NMNWMN TT NMAC 
<«onow IOonod 
Noe vw wrer 
<«vwonm <«q«vwod 
awww uw 
<xvor-o avor-<a 

Da dae aa.) ta da ca) 
OoOomnNo oonod 
foviav vere gat] NNMmONC 
OWMvO OWwmMoO 
NToaws fate gd’ alta) 


MSGADR: 


448 RUNS 


449 


TEST WILL NOW BE RUN USING PFN MAPPING ‘*###0$ 


$!/ 


-ASCII 


Re BNE NINE ON QOOO ONG OO OR 
mery PAVIA MMMM FF FFT rr rr 


Re ew we ew alana lala lololeleleloleleolelelolelololololo) COOOCSCOCOCCOCOSCOoooO 


SMMGTST.DATS 


. SMMGTSTS 
GBLSECNAMSIZ=.-GBLSECNAMADR 


FILENAMEA 


$'/ $ 
_MSGSIZ=.-RUN3_MSGADR 


$!UL$ 
S1Z=.-PIDCTLADR 


¥ 


R: 
ScII 
FILENAMESIZ=.-F ILENAMEADR 


AS 
RUN 
ASCII 


PIDCTLADR: 
D 

A 

| 


GBLSECNAMADR : 


Oe CUM TNOR. DOOR UMS 
WMIMMMMMMMAINOOOW0O 
wvwvwwwevevevevyyssss 


4C 55 $1 
00000003 
00000006 
0000000A 


54 53 54 47 4D 4D 


54 41 44 2E 54 53 54 47 4D 4D 


Page 11 | 
-1984 01:57: AX/VMS 0 V04-00 1 | 
- RETVA/SDELTVA/$SETPRT Ogre 16-SEP=1 AX/VAS Macro VO4-00, | 
yOLs0o wn: DATA STOPAGE END MESSAGE STRINGS §- -SEP-1984 8} gf 33 t | 
¢ 269 STRING DESCRIPTORS 
d is ; ALIGN LONG 
bee 4 
i a. TVAERRSIZ, CRETVACRRADR 
sega eeoetes : ir§ DELTVAERR: a a DELTVAERRADR 
 entidaadl : irs EXPREGERA: : peecemendd aucun 
podenntns ir cRMPSCERI: G  CRMPSCERRSIZ,CRMPSCERRADR 
onan smtae ues ‘73 SETPRTERR: SETPRTERRSIZ,SETPRTERRADR 
000001A5"00000092 0444 i R 
44C 481 READERR i 
READERRSIZ,READERRA 
7°00000021 044¢ 4 . LONG 
sa 00000024 si i pee NOREADERRS1Z,NOREADERRADR 
0 . . 
45C 485 WRITERR Sail 
ONG WRITERRSIZ,WRITE 
00027¢ "00000022 bea 486 wL 
sires het ree tb NOURITERR: NOWRITERRSIZ,NOWRITERRADR 
wretches. oct 190 seine: ONG RANGERRSIZ,RANGERRADR 
474 491 IDMSG nee 
00000312"00000039 0474 as nseito"® IDMSGSIZ, 
Oae .LONG RUN1_MSGS1Z,RUN1_MSGADR 
00000348'00000043 047¢ SS nat antl 4 
bape .LONG RUN2_MSGSIZ,RUN2_MSGADR 
0000038E "00000044 0484 OF cela tad : 
000003D2'0000003E kt .LONG RUN3_MSGS1Z,RUN3_MSGADR 
un oe TLSIZ,PIDCTLADR 
00000410'00000003 0494 90 seu secwanton® PIDCTLS 
196 5 L GBLSECNAMS1Z,GBLSECNAMADR 
00000413'00000006 049¢ 20¢ meee 
ryan “LONG FILENAMESIZ,FILENAMEADR 
00000419" 0000000 O4A4 204 ’ 


| 


MMGCROL SP TEST OF SCRETVA/SDELTVA/SSETPRI' SYSTEM 16-SEP-1984 01:57:53 YAX/VMS Macro. v04-00 Page 12 +4 
v04 INITIALIZATION goSb=19be 01:57:57 EAnGYst SRCIRMGCROLSP.maR;1 8" (2) vo4 
GAC »SBTTL INITIALIZATION 
4A PIIIIITITILILILILIILL TITTLE LLL LLL LLL LLL LLL LEE TTT 
oAC ;PROGRAM DESCRIPTION: 
4AC ; THIS PROGRAM TESTS THE FOLLOWING SYSTEM SERVICES: 
aac ; SCRETVA,SDELTVA,SSETPRT 
4AC ; THE SYSTEM SERVICES ARE TESTED IN THE FOLLOWING MANNER. THE PROGRAM 
4aC ; 1S DESIGNED TO MAKE THREE RUNS. EACH RUN MAKES THREE PASSES. 
GAC ; THE FIRST RUN WHEN A MAKEVA IS ENCOUNTERED IT IS REPLACED WITH 
4AC ; CRETVA. IT THEN MAKES THREE PASSES THROUGH THE PROGR 
GAC ; ALL THE POSSIBLE TESTS. ON THE SECOND RUN THE MAKEVA IS ENCOUNTERED 
GAC ; AND IS REPLACED WITH A SCRMPSC THAT MAPS A PERMANENT GLOBAL SECTION. 
GAC ; FOR THE THIRD RUN, THE MARVA IS REPLACED WITH A SCRMPSC THAT MAPS 
GAC ; A PFN GLOBAL "SECTION: USING THIS APPROACH THE SCRMPSC SYSTEM SERVICE 
GAC ; WAS ALSO ABLE TO BE TESTED AS ALL ERROR PATHS FOLLOWED WHEN USING 
Séac ; NORMAL VA ARE ALSO APPLICABLE WHEN USING GBL SECTION MAPPING. 
Q4AC ; FOR EACH OF THESE RUNS A MESSAGE IS SENT TO THE TERMINAL 
O4AC ; INFORMING THE OPERATOR AS TO WHICH OF THESE SUBTITUTE MAKEVA'S WILL 
Oeac ! BE USED FOR THAT SET OF PASSES. 
O4AC ; REFER TO MASD$:CMMGTST.COMIMMGTST.RAP FOR FURTHER INFORMATION 
Q4AC ; REGARDING JUST HOW COMPLETELY THE ABOVE MENTIONED SYSTEM SERVICES 
Oéac ; ARE TESTED BY THIS PROGRAM. 
O4AC ;*NOTE: 
Q4ac $34 ¢ THERE IS A BUG IN SCRMPSC THAT WILL BE FIXED IN THE FUTURE. UNTIL 
: THIS FIX TAKES PLACE THERE AREA TEMPORARY PATCH’S LOCATED AT THE END 
Q4aC 536; OF THE CREMAPSEC MACRO AND MAKVA MACRO WHICH CIRCUMVENT THIS 
Q4AC 537 ; PROBLEM. UPON CORRECTION OF THIS BUG REFER TO THESE ABOVE MENTIONED 
Q4ac 538 ; MACROS TO FIND OUT HOW TO REMOVE THESE TEMPORARY PATCHES. 
4AC 540 ; ALSO, THE FILE MMGTST.DAT, WHICH IS CREATED BY RUNNING MMGCRTFIL.MAR, 
BeAc 26]: IS NECESSARY TO RUN THIS PROGRAM AS IT IS REFERENCED BY CREMAPSEC. 
4AC 543 5 *PRIVILEGES: 
GAC 544 ; IN ORDER TO RUN THIS PROGRAM YOU MUST HAVE IN YOUR POSSESION 
GAC 545 ; THE PRIVILEGES PRMGBL AND PFNMAP. 
4AC 4 ciara ha och 5 ia Aan tS eal a een a i ich Sh nl tha 
O4AC 547 | 
GAC 548 ; START HERE 
aC 549 : 
0000 Q4ac START: WORD 0 ENTRY MASK 3 
4A SOPEN WF AB OPEN THE FILE ‘‘SOUTPUT 
06 50 £9 048 BLBC RO, 108 ;BRANCH IF ER 
4B SCONNECT W*RAB CONNECT THE RECORD ACCESS BLOCK 
0950 £8 04¢ BLBS_ RO, 208 
10$: — SEXIT sEXIT WITH STATUS IN RO 
20$: $RESUME_S PID ;SET UP PROCESS ID 
50 00000018'EF  3¢ MOVZWL “PID,RO 
S$FAO_S PIDCTL,MSGLEN,PIDMSGD,RO ;INIT THE PROCESS ID STRING 
CLRL™ WHICHRUN ZINIT THE RUN COUNT TO ZERO 


MAIN_PROGRAM: 


Wry s trteerrrrrirr itt itlitlitiitiiti iii iti iit iii titi iii iti iii iti iii it iii ii 


4 
4 
d 
00000028"EF 04 : 
5 
5 
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MMGCROLSP = TEST OF SCRETVA/SDELTVA/SSETPRT svSten 16-SEP-1984 01:57: AX/VMS Macro V04-00 P 13 
v04 INITIALIZATION ety yi eS ERMGTST. SRE IAMG RDLSP.MAR; 1 wndey | 
7 564; THIS COUNTER 1S USED TO DETERMINE WHICH CRMPSC IS TO BE 
7 565 ; REFERENCED, OR IF THE CRETVA IS TO BE USED, WHEN A MAKEVA 
7 66 : IS ENCOUNTERED. 
f é FRA RAAAAAA AEA A REE A EEA AAA E EAA AEAAAAAAAAEAEKAAAEEHAATEHAAEReHe eee eeeeee 
0020'CF 01 D 7 MOVL #1,¥*PASSCNT - INITIALIZE THE PASS COUNT 
OC 0028'CF 6024'CF pg 306 19 AOBLEQ W*MAXWHICHRUN,W°WHI CHRUN,PRESTART 
14 72 END: 
5G 01 9A 212 8 MOVZBL #SS$_NORMAL,RO 
517 vs SEXIT_S RO 
3 6 id: PRESTART: 
03 01 O028'CF CF ; , ve CASEL W*WHICHRUN,#1,#RUNMAX 
0006" 5 é 8 . «WORD CRETVA MESSAGE=L50 :FOR EACH RUN PRINT MESSAGE 
022° 05 2f0 «WORD GBL_SEC_MESSAGE-L50 ;DESCRIBING WHICH VA SPACE 
44" 2 "4 b -WORD PFNRAP_MESSAGE-L50 31S BEING USED. 
05 C 2 5 CRETVA_MESSAGE : 
7 ¢ 284 $FAO_S RUN1_MSG,MSGLEN,MSGBUFD 
ODCA 30 83 5 BSBW TYPEMSGBUF 
44«*z‘CYT 54 8 BRB INIT_START 
94 288 GBL_SEC_MESSAGE: 
OO10'CF 04 CB 054 9 BISL | #CTLSM_PIDMSG,W*CTLFLG sALLOW PROCESS ID TO PRINT 
0540 590 $FAO_S RUN2_MSG,MSGLEN,MSGBUFD 
ODA 30 0564 331 BSBW” TYPEMSGBUF 
00E6 31 0567 3¢ BRW RSTART 
p30, 27 PFNMAP_MESSAGE : 
0010'CF 04 CB 056A 595 BISL #cTL SH PIDMSG,W°CTLFLG ;ALLOW PROCESS ID TO PRINT 
56F 298 $FAO_S RUN3_MSG,MSGLEN,MSGBUFD 
0087 30 0586 59 BSBW” § TYPEMSGBUF 
00c4 = 31 389 298 BRW TART 
58¢ 600 INIT_START: 
0010'CF 04 CA At 601 -""BICL = #CTLSM_PIDMSG,W*CTLFLG ;STOP PROCESS ID FROM PRINTING 
0591 602 EXPREG: #1 
53 ot 3¢ 0591 MOVZWL S*#SS$_NORMAL,R3 
54 01S iO «0594 MOVL 
51 0008" CE DE 397 MOVAL W*RETRANGE,R1 
cic 30 9 BSBW  EXPREGSUBR 
52 0008! F 7D AA 603 MOVQ WRETRANGE,R 
0000' CF 52 7D 0546 604 MOVO RZ We INRANGE sFIND END OF REGION'S VA SPACE 
0014'CF D0 3A 6 5 MOVL  R2,W*SAVEND SAND SAVE FOR FUTURE TESTS. 
580 6 5 READ  #1,RDPAGES sCHECK READABILITY AND WRITABILITY 
5caiéd 8 READ #1.CODEPAGES [OF PAGES CREATED AT LINK TIME. 
5066 WRITE #1. WRTPAGES 
SEA 610 WRITE  #1,(R2 
SFA 611 NOREAD #2.<*X1FF(R2)> 1ST READABLE 2ND NOT 
60A 61g READ #1.<*X1FF(R2)> :TEST 1 BYTE AT EDGE 
61C 61 DELTVA 
01 0028°CF 8} 61¢ CMP YrWHI CHRUN, ARUNT sI1F USING MAPPED SECTIONS FOR TESTS, 
OF 15 0621 BLEQ 0011$ [DELETE SECTION AND THEN DO A DELTVA 


a 
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MMGCRDLSP = TEST OF SCRETVA/SDELTVA/SSETPRT svSTER 16-SEP-1984 01:57: AX/VMS Macro V04-00 Page 14 
v04 INITIALS TAT Ion iets 7 94:35:28 ERMGTST. SRESHMOCROL SP.MAR: 1 - 
00 pp PUSHL #0 | 
FE73 CF oF é ; PUSHAQ W*GBLSECNAM 
DD PUSHL 49 
00000000' GF FB 6 jenna CALLS #3,G*SYSSDGBLSC 
01 3c 06 MOVZWL $*#SS$_NORMAL,R3 
50 Oo: cF DE : MOVAL  W*INRANGE,RO 
1 000 “CF pe A MOVAL W*RETRANGE,R1 
0B08 F DELTVASUBR 
642 6146 NOREAD 
650 615 
63 616 RSTART: 
1 RANGECHK ON 
OO10'CF 08 cB 065 B #CTLSM_RNGCHK,W*CTLFLG 
OO10'CF 046 CA 0655 618 BICL  #CTLSM_PIDMSG,Q*CTLFLG :STOP PROCESS ID FROM PRINTING 
65A 619 $FAO_S IDMSG,AMSGLEN,MSGBUFD,PASSCNT 
0096 30 0677 620 BSBW” TYPEMSGBUF 
67A 621 EXPREG # 
53 01 «3C «(067A MOVZWL $*#SS$_NORMAL,R3 
54 01 «DO 067D MOVL 1 
51 0008'CF DE 0680 MOVAL W*RETRANGE,R1 
33 4 68 CLR RS 
0B 0 0687 BSBW  EXPREGSUBR 
52. 0008'CF 7D 068A t 2 MOVQ  W*RETRANGE,R 
0000' CF 32 7D O68F 6 MOVa RZ .W" INRANGE 
0014'CF 52 DO 0694 624 MOVL  R2.W*SAVEND 
699 625 DELTVA 
01 0028'CF 81 0699 CMPW We WH | CHRUN , #RUNT :IF USING MAPPED SECTIONS FOR TESTS, 
OF 15 069 BLEQ 30013$ [DELETE SECTION AND THEN DO A DELTVA 
00 pp 6A PUSHL #0 
FDF6 CF 7F 06A PUSHAQ W*GBLSECNAM 
60 DD 06A6 PUSHL 40 
00000000'GF 03 FB ee CALLS #3,G*SYSSDGBLSC 
53 01.3 MOVZWL $*#SS$_NORMAL,R3 
50 O0000'CF ODE 68¢ MOVAL W*INRANGE,RO 
51 0008'CF DE 68 MOVAL W*RETRANGE,R1 
OA8B 6BC BSBW  DELTVASUBR 
6BF 626 MAKEVA 
03 01 0028'CF 6BF CASEL W*WHICHRUN, #1, #RUNMAX 
6C5 300148: 
C3 .WORD 30016$-30014$ ST RUN USE CRETVA. 
6C “WORD 30017$-30014$ OND USE GBL CREMAPSEC 
6C9 "WORD 30018$-30014$ RD USE PFN MAPPING 
6CB 30016$: 
5301 6CB MOVZWL $*#SS$_NORMAL,R3 
50 0000'CF 6ce MOVAL W*INRANGE,RO 
51 0008'CF 6D MOVAL W*RETRANGE,R1 
ASB 608 BSBW CRETVASUBR 
076 608 BRW 30019$ 
6DE 30017$: 
53.01 DE MOVZWL S*#SS$_NORMAL,R3 
6E1 300208: 
09 661 PUSHL 
1 oF PUSHL #25 
FDBB cr 6E PUSHAL W*FILENAME 
0 669 PUSHL #0 


H 
MMGCRDL SP = TEST OF SCRETVA/SDELTVA/SSETPRT svSTen 16-SEP-1984 01:57: AX/VMS ro v04-00 Page 15 
ett INI FIALT ZATION Been ahs OI eoiee tees eee OO many oe 12; 
FDAD CF DF O6EB PUSHAL W“GBLSECNAM 
00004 F DD O6EF PUSHL  #<SECSM GBL!SECSM_PERM! SECSM_DZRO! SECSM_WRT> 
"CR OOF FS PUSHAL W*RETRANGE 
"CE «ODF OO6F PUSHAL W*INRANG ef 
99000000 EF 8 Fe FD CALLS #8, sh . CREMAPSEC 
1828A BF OD 4 CMPL ;1F PREVIOUS GBL SECTION HASN'T 
D4 13 0708 ‘BEEN DELETED TRY CREMAPSEC AGAIN. 
51 FO2B Ce i rt NOVA Wr CRMPSCERR. RI 
bo%e 1 4 cena BRW 30019$ 
53 01 «3 18 sienna MOVZWL S*#SS$_NORMAL,R3 
43 7c 0718 : CLRQ 3s = (SP) 
8 Btn pis 
Re OR pau hence 
$0 D 07 : PUSHL @# 
FD70 CF = 7F O07 PUSHAQ W*GBLSECNAM 
00014009 ar bp 07 ¢ PUSHL #<SECSH_ GBL ! SECSM_PERM! SECSM_PFNMAP! SEC$M_WRT> 
90 og cr F $f 4 PUSHAQ W*RETRANGE 
OO'CR 7F 0738 PUSHAQ W* INRANGE 
0000 Oc FB 07 : CALLS #12,G*SYSSCRMPSC 
50 00 0b 8oBA F D1 07% CMPL #*X182BA,RO ;IF PREVIOUS GBL SECTION HASN'T 
CF 13 O746A BEQL 300 ‘BEEN DELETED TRY CREMAPSEC AGAIN. 
51 FCEC CF DE 074¢ MOVAL W*CRMPSCERR,R1 
OA0B 3 731 saaed BSBW = CHECK1 
754 627 " WRITE 
62 62 90 764 : 8 MOVE (R2), (R2) 
01 0028'CF B81 aré7 MPW Well CHRUN , ARUNI ;1F USING MAPPED SECTIONS FOR TESTS, 
OF 13 roc BLEQ, 3002 $ [DELETE SECTION AND THEN DO A DELTVA 
FD28 cr rr 0770 PUSHAQ W*GBLSECNAM 
00000000 ' GF 88 FB 176 cones CALLS +8.G*SYSSDGBLSC 
3c (0770 f MOVZWL $*#SS$_NORMAL,R3 
50 0000 CF DE 07 0 MOVAL W*INRANGE ,RO 
51 0008'CF DE 7 MOVAL URE TRANGES RI 
098D 78A BSBW  DELTVASUBR 
, ‘ ‘ NOREAD 
798 63g FERRARA KAKA AAA AAA AAA AAARAAAAAAAAAEAEAAAAAAAAAAAAAKAKAAAAEAAAeKeee eee 
198 6 ALL AG SET PROTECTION TESTS ARE BYPASSED FOR THE SECOND AND THIRD 
98 634 : RUNS, WHEN GLOBAL SECTIONS ARE USED, AS IT IS NOT POSSIBLE TO CHANGE 
798 635 nHe spROTECTION OF PAGES CREATED IN fHIS MANNER, 
ree 638 : s spabenssatnstanetpbaatttetatasenetsematsonsetenianmseniaasioniaaiieuniaen 
02 eh 8! 9 6 8 : cnpy W*WHICHRUN, #RUN2 
045A 31 O7A 640 BRW BYPASS_SETPRT_TESTS 
7A 41 10$: 
7A5 642 


1 
CROLSP - TEST OF SCRETVA/SDELTVA/SSETPRT svSTER 16-SEP-1984 01:57: AX/VMS Macro v04-00 Pa 1 a) 
vol INITIALS TAT Ion Boeri ks BIeoiee eee eel ee tee man:1 ome 1, vo! 
7A5 643 MAKEVA 
03 01 O028°CF CF Ths noes CASEL W*WHICHRUN, #1, #RUNMAX 
06" 07AB WORD 7$-30025$ s1F FIRST RUN USE CRETVA. 
19' O7AD WORD $-30025$ TIF SECOND USE GBL CREMAPSEC 
5 rar aoaote WORD $-30025$ SIF THIRD USE PFN MAPPING 
53 01 3¢ 0781 MOVZWL $*#SS$_NORMAL,R3 
50 6 OO'CF DE 0784 MOVAL W*INRANGE,RO 
51. 000 CF : 789 MOVAL WRETRANGE. R1 
975 7B BsBW CRETVASUBR 
076 31 «O7C¢ Ww 30030$ 
53 01 «3¢ ree yoeeens MOVZWL $*#SS$_NORMAL,R3 
7¢7 30031$: - 
09 DD 07¢7 PUSHL # 
DD 07¢9 PUSHL #25 
FCDS CF 6OCOF=«COO7CB PUSHAL W*FILENAME 
00 DD O7CF PUSHL #0 
DF 07D1 PUSHAL W*GBLSECNAM 
00008500 af DD 9705 PUSHL #<SECSM GBL ! SECSM_PERM! SECS$M_DZRO! SECSM_WRT> 
909 Bic DF 07DB PUSHAL W*RETRANGE 
00000000°er~ 4 PB pF attics ¥8 WrAS ER MAPSEC 
50 0001 BBA a D1 O7EA CMPL FLA BRR RO :1F PREVIOUS GBL SECTION HASN'T 
13 O7F1 [BEEN DELETED TRY CREMAPSEC AGAIN. 
51 FC45 be F de MOVAL W*CRMPSCERR,R1 
0961 Or BSBW K1 
003c 4931 «+O7FB BRW 30030$ 
O7FE 30029$: 
53 01 3C O7FE MOVZWL S“#SS$_NORMAL,R3 
0801 30026$: 
7E 7C 0801 CLRQ 2s = (SP) 
00 DD 03 PUSHL «#0 
19 DD PUSHL i 
7E 00 3¢ 0807 MOVZWL #0,-(SP) 
00 DD OB0A PUSHL 
00 DD 080C PUSHL A 
CBA CF «67F «(0B PUSHAQ W*GBLSECNAM 
00014009 er Dp PUSHL #<SECS_ GBL ! SECSM_PERM! SECSM_PFNMAP! SECSM_WRT> 
0008'CF 7F Ba PUSHAQ W*RETRANGE 
tare 7F 081 PUSHAQ W* INRANGE 
9000000" GF 8 F CALLS #1 G° SYSSCRMPSC 
1828A D CMPL «ss #*X182BA,R :1F PREVIOUS GBL SECTION HASN'T 
13 BEQL [BEEN DELETED TRY CREMAPSEC AGAIN. 
51 FC06 6 oF bE MOVAL W*CRMPSCERR,R1 
BSBW CHECK! 
A 30030$: 
A 644 SETPRT UR,PRVPRT=UW 
3 01 3¢ A MOVZWL S*#SS$_NORMAL,R3 
50 000° CF DE AL W*INRARGE ,RO 
51 OOO8'CF DE 084 AL  W*RETRANGE,R1 
4 OF 9A 084 MOVZBL STAPRTSC_UR.RG 
5 046 9A OB4A MOVZBL S*#PRT$C~UW.R 
56 2c'CF be 4p VAL W*PREVPROT,R6 
0901 5 W SETPRTSUBR 


J 
MMGCRDLSP - TEST OF SCRETVA/SDELTVA/SSETPRT svSTER 16-SEP-1984 01:57: AX/VMS Macro V 
v04 INITIALS ZAT Ion Set ty Ot 30 338 EMMGTST. SRE IAM 
5 45 NOWRITE 
6 46 READ 
7 48 SETPRT WNA,PRVPRT=UR 
3 01 3¢ 087 MOVZWL S$*#SS$_NORMAL,R3 
50 000° CF DE 0876 VAL W*INRANGE,RO 
1 F DE 087 MOVAL W*RETRANGE,R1 
4 060 MOVZBL S*#PRTSC_NA,R4 
5 OF 9A MOVZBL S*#PRT$C"UR.RS 
56 2c ct 6 W*PREVPROT,R6 
998 SETPRTSUBR 
E 649 NOREAD 
€ 650 
€¢ 651 SETPRT UW,PRVPRT=KR 
53 01 «3c )«(0B9C MOVZWL $*#SS$_NORMAL,R3 
50 000° CF DE O89F MOVAL W*INRANGE,RO 
1 0008'CF AG MOVAL W*RETRANGE,R1 
4 04 9A OBAD MOVZBL S*#PRTSC_UW,R4 
5 03 9A OBAC MOVZBL S*#PRT$C~KR.RS 
56 002c'CF bE OBAF MOVAL W*PREVPROT,R 
096F 08B4 BSBW  SETPRTSUBR 
0887 652 WRITE 
BC? 65 
62 62 90 08C7 654 MOVB  — (R2),, (R2) 
OBCA 655 SETPRT UR,PRVPRT=UW ;MAKE READ ONLY 
53 01 3C¢ OBCA MOVZWL S*#SS$_NORMAL,R3 
50 O000'CF DE O08C MOVAL W*INRANGE,R 
1 Q008'CF DE 08D MOVAL W*RETRANGE,R1 
54 OF 9A 08D MOVZBL S*#PRTSC_UR,R4 
55 04 9A ORDA MOVZBL S*#PRTSC 
56 002c'CF pe 08D W*PREVPROT,R 
6941 O8E BSBW  SETPRTSUBR 
BES 656 NOWRITE 
BFS 657 
BFS 6658 SETPRT NA,PRVPRT=UR 
53 01 3C¢ O8BF MOVZWL S*#SS$_NORMAL,R3 
50 O000°CF DE O8F6 MOVAL W*INRANGE,RO 
51 OO08'CF DE O8F MOVAL W*RETRANGE,R1 
4 90 A 30 MOVZBL S*#PRTSC_NA,R4 
5 OF 9A 09 MOVZBL S*#PRT$C~UR.RS 
56 002c'CEF bE 906 MOVAL W*PREVPROT,R6 
0918 90B BSBW  SETPRTSUBR 
90E 659 NOREAD 
at ae 
91¢ SETPRT UW,PRVPRT=KR 
53 01 «3c_«C(091C MOVZWL $*#SS$_NORMAL,R3 
50 0000°CF DE O91F MOVAL W*INRANGE,R 
51 O008'CF DE 0924 MOVAL W*RETRANGE,R1 
4 04 9A 0929 MOVZBL S*#PRTSC_UW,R4 
5 03 9A 092¢ MOVZBL S*#PRTSC7KR.RS 
56 002c'CF ge 90F MOVAL W*PREVPROT,R6 
O8EF 934 SETPRTSUBR 
Se algae 
47 664 > MAKE A READ ONLY DEMAND ZERO PAGE AND READ REFERENCE IT 
947 666 DELTVA 
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INITIALIZATION -SEP=1 MMGTST. SRCIMMGCROLSP. MAR; 1 (6) 
01 0028'CF 8) 947 CMP yr WH CHRUN, #RUNT :1F USING MAPPED SECTIONS FOR TESTS 
F 94 BLEQ 04 ‘DELETE SECTION AND THEN DO A DELTVA 
0 pp uF PUSHL 
FB48 CF O7F O09 PUSHAQ W*GBLSECNAM 
9 DD 3 4 PUSHL q 
00000000' GF FB 3 6 mands CALLS 4#3,G*SYSS$DGBLSC 
: 01 3C 3 MOVZWL $*#SS$_NORMAL,R3 
50 OQO'CF DE 096 MOVAL  W*INRANGE,RO 
1 000 scr DF 96 MOVAL W*RETRANGE , R1 
96A SBW = DELTVASUBR 
96D 667 MAKEVA 
03 01 OO2B'CF CF 3 spa CASEL stagromigle Sek 
0006" 097 .WORD 30045$- :1F FIRST RUN USE CRETVA. 
0019" 097 “WORD 30046$- [IF SECOND USE GBL CREMAPSEC 
0053" 097 “WORD 30047$- SIF THIRD USE PFN MAPPING 
979 30045$: 
53 01 3c 0979 MOVZWL se4sss NORMAL ,R3 
50 O000'CF DE 097¢ MOVAL NRANGE ,RO 
51 0008'CF ; 381 MOVAL WORETRANGE. R1 
O7AD 9 6 BSBW oust tvAS UBR 
0076 31 098 BRW 300 
O98¢ 30046$: 
53 01 «3C «(098C MOVZWL S*#SS$_NORMAL ,R3 
O8F 30049$: 
00 Dd 098F PUSHL #0 
19 DD 0991 PUSHL #25 
FBOD CF OF «0993 PUSHAL WF ILENAME 
, 009 DD 0997 PUSHL # 
DF 0999 PUSHAL W*GBLSECNAM 
00004005 oF DD 0990 PUSHL #<SECSM_GBL ! SECSM_PERM! SECSM_DZRO! SECSM_WRT> 
O000'e DF O9A3 PUSHAL W*RETRANGE 
000'CF DF O9A7 PUSHAL W*INRANGE 
00000000' 08 FB 48 CALLS ag. BS CREMAPSEC 
50 0001 BBA D1 098 CMPL 1828K,R ;IF PREVIOUS GBL SECTION HASN'T 
D4 13 0989 BEQL ‘BEEN DELETED TRY CREMAPSEC AGAIN. 
51 FA7D CF F MOVAL W*CRMPSCERR,R1 
0799 9C BSBW ECK1 
003¢ «31s: 09 BRW 30048$ 
906 30047$: 
53 013°C 9¢6 MOVZWL S*#SS$_NORMAL ,R3 
9C 30044$: 
7E 7C 09C9 CLRQ. 0s = (SP) 
00 DD 09¢B PUSHL # 
1 D 09CD PUSHL #25 
7E 0 C O9CF MOVZWL #0,-(SP) 
DD 0902 PUSHL 40 
0 D 0904 PUSHL # 
Face F 7F O09D6 PUSHAQ W*GBLSECNAM 
00014009 8F DD O9DA PUSHL #<SECSM_GBL!SECSM_PERM! SECSM_PFNMAP! SECSM_WRT> 
0 OD O9E PUSHL #0 
900 ‘CF «=67F «OO9E PUSHAQ W°RETRANGE 
200g 9's fe SE EA? FIMEANE scemsc 
8 $001 BoBA F D1 O9F1 CMPL “ibe ah Hi s1F PREVIOUS GBL SECTION HASN'T 
CF «6i3) (O9FB BEQL $004 ‘BEEN DELETED TRY CREMAPSEC NGAIN. 


MMGCROL SP 
v04- 
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5 04 

56 d02c'CF 
08 

50 6 


01 0028'CF 
0 


F 

00 

FAS1 CF 

00000000' GF 08 
531 

50 0000'CF 
51 0008'CF 

06E6 

52. _0000'CF 

0000° CF 28 
0004°CF 5 
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TVA/SDELTVA/SSETPRT“SYSTER = Hat 9 ft: 37: 33 YANcvas 


04-00 Page 1 
C ( 


ov 
“SEP=1 T.SRCJMMGCROLSP.MAR; 1 


poyee inne 
30048$: 


SETPRT UR,PRVPRT=UW 
MOVZW SUASSS NORMAL, R3 


MOVB 

NOWRITE 

READ 

DELTVA 
CMPW WOng CHRUN MRUNI 
B 30053$ 


z 
“no 


MAPPED SECTIONS FOR TESTS, 
HT ; ECTION AND THEN DO A DELTVA 
PUSHAQ W*GBLSECNAM 

CALLS i, G* SYSSDGBLSC 


MOVZWL S*#SS$_NORMAL ,R3 
MOVAL W*INRANGE,RO 
MOVAL UORETRANGE R1 
BSBW  DELTVASUBR 


WITTTITITITITILILIIITIIIITLI TILL LiL LLL LLL Litt LLL 
; THE FOLLOWING ware SECTIONS ARE DONE ONLY ” THE FIRST PASS, 
3 AS THE SECTIONS TEST THE READABILITY AND WRITEABILITY 
OF PAGES CREATED AT LINK TIME (DEFINED WITH PSECT 
DIRECTIVES). THESE PAGES ARE NOT AFFECTED BY CURRENT VA POINTERS 

AND THUS NEED ONLY BE DONE ONCE. PICKING THE FIST PASS AS THE 
RECIPIENT OF THIS HONOR WAS AN ARBITRARY DECISION. 


RRHRARAERERA RARER AREREARERAAERRRARRARERREREE EAR ERE EERE EERE EERE EE 
PSTX PAGE WRITABLE, CRF, NOT YET REFEREWCED 

MOVAL WeURTPAGES R2 

MOVL R2 ue 6E 

MOVL R Ue INRANGE +6 


30053$: 


WRITE 
SETPRT UR,PRVPRT= 
MOVZW S*ASSS NORMAL. oR3 


BSBW SETPRTSUBR 
NOWRITE 


READ 

SETPRE NA, PRVPRT=U 
MOVZWL Sa #SSS NORMAL ,R3 
MOVAL W*INRANGE,RO 
MOVAL W*RETRANGE,R1 


mM 2 
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RE 
ON “SEP-1984 01: T.$ SMMGCRDLSP.MAR; 1 (6) 


MOVZBL wade Ss NA,R4 
povire S*#PRT 


OVAL PR 
BSBW SETPRTSUBR 
Oe NORE AD 
95 SETPRT nsf + lg TSKR 


MOVB  _— (R2),, RO 
SETPRT UW, PRVPRT=UR 
MOV S*#SS$_NORMAL ,R3 
MO W* INRANGE ,RO 
MOVAL WeRETRANGE RI 
MOVZBL Se APRTSENUR “UR, Re 


srasss NORMAL ,R3 
MOVAL W*INRANGE,R 
MOVAL URETRANGE RI 
MOVZBL S*#PRT$C_UW,R4 
MOVZBL S*#PRTSC“KR.R 
W*PREVPROT,R 
SETPRTSUBR 
696 WRITE 
698 ; PSTX READ ONLY PAGE, NOT YET REFERENCED 
j 0 MOVAL W*RDPAGES, R2 
, 1 MOVL R W* INRAN 
, : *W* INRANGE +4 
704 NOWRITE 
705 READ 
706 SETPRT UW,PRVPRT=UR 
MOVZWL seasss NORMAL ,R3 
MOVAL NRANGE , RO 
MOVAL URE TRANGE RI 
MOVZBL S*#PRTSC_UW,R4 
MOVZBL S*#PRT$C~UR.RS 
MOVAL W*PREVPROT,R6 
SBW = SETPRTSUBR 
707 WRITE 
708 MOVB == (R2),(R2)_ 
709 SETPRT UR, PRVPRI 
MOVZ sass NORMAL ,R3 
MOVAL. “INRANGE ,RO 
VAL U*RETRANGE R 
MOVZBL S“#PRTS$C_UR,R4 xl 
MOVZBL S*#PRTSC 5 
OVAL W*PREVPROT,R Ex! 
nes SBW SETPRTSUBR FA 
ot) 3; PSTX READ ONLY PAGE - READ REFERENCE IT An 
a MOVAL 94200(R2) R2 FAI 
714 MOVL »W* INRANGE FAI 
£13 MOVL R *W* INRANGE +4 FA 
nS NOWRITE FAl 
r18 READ FAI 
71 FAI 
720 FAI 
é 
F 
F 


| 
I 
I| 
| 
| 
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INITIALIZATION -SEP-1984 MMGTST. SRCIMMGCROLSP. MAR; 1 (6) 
6 ooze f be BC9 MOVAL W*PREVPROT,R6 
655 BCE am at BSBW  SETPRTSUBR 
62 62 90 OBE1 733 MOVB = (R2) (R2) 
BES 7 SETPRT UR, pRVP 
oll BE BE ie acta 
24 $O8" EF DE OBEC WRETRANGE R1 
4 OF 9A OBF1 MOVZBL S*#PRTSC_UR,R4 
5 046 9A OBF4 MOVZBL S*#PRT$C~UW_RS 
56 dae’ cr be BF7 OVAL W*PREVPROT,R6 
0627 Oar ¢ oni SBW  SETPRTSUBR’ 
BFF 725 BYPASS_PSECT_TESTS: 
OBFF u ge BYPASS-SETPRT_TESTS: 
BFF f g : CHECK CREATING THE LAST 2 PAGES OF P1 SPACE 
OBFF Hen | connnececeveeseoeseesensecorescoosesosseesesesonseenesorsososososseseees 
OBFF 731 ;eexeeeeeeeee THIS TEST MIGHT NOT WORK WITH THE DEBUGGER *tteeeneeneeeeeee 
OBFF 732 ;eeeeeneeeeee ON BECAUSE THE LAST TWO PAGES OF P PI SPACE tkteeeeeeererenes 
OBFF 7 : peeeeeeeeeeee NOW CONTAIN THE DEBUGGER CONTEXT AREA TITITIITIITi Tia 
OBF F ee ETITELELELL LLL TLL LETTE LLL EEE 
OBFF ; 
OBFF 736 MAKEVA #<*X7FFFFCOO>,#<*X7FFFFFOO> 
03 01 0028'CF CF BFE aun CASEL W°WHICHRUN, #1, #RUNMAX 
0006" 0C05 , -#ORD 0074$-30072$ yIF FIRST RUN USE CRETVA. 
002B' 0C07 0075$-300728 [IF SECOND USE GBL CREMAPSEC 
0077' 9c09 mk ORD 0076$-30072$ ‘iF THIRD USE PFN MAPPING 
QOOO'CF 7FFFFCOO BF DO OCOB : MOVL W<ONTEEEECOO> W* INRANGE 
0004'CF 7FFFFFOO BF DO OC14 MOVL &#<*X7FFFFFOO>.W* INRANGE +4 
50 o000'cr BE OF20 MOVEML STASSS NORMAL RS 
51 O008'CF ODE O¢35 MOVAL  W*RETRANGE,R1 
0509 30 OC2A BSBW ETVA 
009A 31 c p hear BRW 30077$ 
QO00'CF 7FFFFCOO BF D0 C30 : MOVL —-#<*X7FFFFCOO>,W* INRANGE 
we nw se E49 MOViWL $9eeeS  WORMAG RSS Noe te 
C4 30078$: ’ : 
09 DD C48 PUSHL 40 
19 DD 0C4 PUSHL #25 
F857 CF DF c49 PUSHAL rf ILENAME 
a 
F849 vr OC4F PUSHAL W*GBLSECNAM 
00004000 SF DD C53 PUSHL #<SECSR GBL ! SECSM_PERM! SECSM_DZRO!SECSM_WRT> 
9008 CF DF 0C5 PUSHAL W*RETRANGE 
DF O0C5D PUSHAL W* INRANGE 
900009 o'er i FB C61 CALLS #8 ; CREMAPSEC 
0001828A D C68 CMPL = #*° X18 28K, R ;1F PREVIOUS GBL SECTION HASN'T 
Cor Q tBEEN DELETED TRY CREMAPSEC AGAIN. 
51 F7C7 it i cr MOVAL Wr CRMPSCERR RI 
O4— 31 a: BRW 30079% 


Marra nae tepid tifa sae ami eer Fae eg ar RNA Ta oS Teh aamalata  5 ir a a e RRR S Sa 7 ecg OE en wee ae A : ] 
| 
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MMGCROLSP = TEST OF SCRETVA/SDELTVA/SSETPRT SYSTEM 16-SEP-1984 01:57: AX/VMS © V04-00 Pa MMG 
v04-0 INITIALIZATION oS Ee 13be te 35 +33 YRMGY ST. MMGCRDLSP.MAR; 1 ” ¢) Pse 
c7¢ 30076$: 
9000 CF PEEFECOO F 4 ¢ f MOVL WCCATEEEECOO> >, W* INRANGE 
CF Oo 7F FFE F p C8 MOVL #<*X7FFFFFOO>.W* INRANGE +4 
53 1 C OC F MOVZWL S*#SS$_NORMAL ,R3 
C9 30073$: 
7 «=7C «(0091 CLRQ 0 =(SP) | PSE 
00 op O0C9 PUSHL # one 
1 D OC9 PUSH #25 | : 
7E 00 C 0C9 MOVZWL #0,-(SP) $AB 
8 DD OC9A PUSHL # DAT 
D OC9C PUSHL # DAT 
F7FA cf F O0C9 PUSHAQ W*GBLSECNAM DAT 
00014009 8F DD OCA PUSHL #<SECSM_GBL!SECSM_PERM! SECSM_PFNMAP! SECSM_WRT> coo 
00 bb CA PUSHL #0 
0008'CF F OCAA PUSHAQ W*RE 
"CE «7F OCA PUSHAQ Ws JNRANGE 
Q0000000'GF OC FB OCB CALLS #1 3g SSCRMPSC 
50 0001828A 8F D1 OCB CMPL #°x{82BA, yIF PREVIOUS GBL SECTION HASN'T 
C 13 OCC BEQL 3007 BEEN DELETED TRY CREMAPSEC AGAIN. Pha 
51 £776 CF oF OCC MOVAL W*CRMPSCERR,R1 on 
0492 0 Occ BSBw CHECK1 Ini 
OCCA 30077$: Com 
OCCA 737 DELTVA Pas 
01 0028'CF 81 OCCA CMPW 8 8=s- W*WHICHRUN,#RUN1 s1F USING MAPPED SECTIONS FOR TESTS, Sym 
OF 15 OCCF BLEQ 30079$ DELETE SECTION AND THEN DO A DELTVA Pas 
00 D OCD1 PUSHL #0 Sym 
F7CS CF f Ocbs PUSHAQ W*GBLSECNAM Pse 
00 DD OCD7 PUSHL #0 Cro 
00000000'GF 0 FB OCD9 CALLS #3,G*SYSS$DGBLSC Ass 
OCEO 30079$: 
53 010 oe Oceg MOVZWL S*#SS$_NORMAL,R3 The 
50 O000°CF DE OCE MOVAL W*INRANGE,R 149 
51. OOOB'CF DE ces MOVAL W*RETRANGE,R1 The 
45A 30 OCED BSBW DELTVASUBR 956 
50 O000'CF 7D OCFO 738 MOVQ W*INRANGE,RO 59 
OCFS 739 MAKEVA R ;REVERSE THE RANGE AND TRY AGAIN 
03 01 OO28°CF CF OcFS hanes CASEL W°WHICHRUN, #1, #RUNMAX 
0006" ocr . WORD 00828- 0080$ z1f FIRST RUN USE CRETVA. 
0023" OCFD . WORD 0080$ :1F SECOND USE GBL CREMAPSEC 
0067" OCFF WORD 30084$-300808 :1F THIRD USE PFN MAPPING Mac 
0D01 30082$: oon 
0OOO'CF 51 DO 0001 MOVL R1 ,W* INRANGE 82 
0004°¢f 29 0 d06 RO.W* IN RANGE +4 | $2 
3 (01 C OD MOVZWL $*#SS$_NORMAL,R3 | To! 
50 O000°CF DE OD0 MOVAL W*INRANG 
51 0008'CF f D1 MOVAL W*RETRANGE,R1 117 
041B D1 BSBU ooagee vAS UBR 
008A 1 0OD18 BRW 3 The 
DIE 30083$: 
0000' CF 33 4 ie MOVL  R1,W* INRANGE MAC 
0004 "CF 0 p D MOVL RO, W* INRANGE +4 
53 01 C 0D28 MOVIL S*#SS$_NORMAL ,R3 | 
DeB 300863: 
09 DD 0D2B PUSHL # 
1 DD ODe2D PUSHL #25 
F771 CF DF ODeF PUSHAL WF ILENAME 


eS Se ee ee ee ae se Se lle = ~ : co 


01 OO28'CF Bi 
OF 


MMGCROLSP - Ha} OF $C 
v04 INITIALIZATI 
DD OD 
AS 5 DF QD 3 
00004 F DD QD 
638 ‘CF §=6DF 6QDSE 
000000' ; ‘8 PB bd? 
50 O001828A BF DF bE 
D6 «613 «005 
51 F6E1_ CF f D5 
O3FD DSC 
0046 1 +4) 
0000' CF 3} dO D6 
00 *'¢f 9 0 B08 
3. (01 C QDé6C 
D6F 
ee oer 
00 odd 0071 
19 0D Ore 
7E OO 3C QD7 
00 DD 0078 
00 D OD7A 
F71C cr F QD7C 
00014009 8F DD OD80 
D 0D86 
08' CF F 0D88 
OOO'CF 7F OD8C 
QO000000'GF OC FB 0D90 
50 0001828A 8F 01 0D97 
CF 13 QD9E 
51 F698 _CF oF BD Ag 
0384 DAS 
DA 
DA 
DA 
15 ODAD 
00 D ODAF 
F6E7 CF F 0DB1 
° DD 0085 
00000000°GF 0 FB ODB7 
ODBE 
. ww 6 ppee 
50 OO00'CF DE ODC1 
51 0008 oe BF DC6 
037C dcB 
DCE 
DCE 
DCE 
DCE 
DCE 
433 
DC 
50 OO14'CF 04 (C1 ast 
03 01 OO028'CF CF ODD4 
DDA 


0006" ODDA 


RETVA/SDELTVA/SSETPRT SYSTEM 16-SEP-1984 01:57:5 AX/ YS Macro V04-00 Page 23 | 
ON = oer = 1382 te 35 33 EMG TST. SREIMMGCRDLSP.MAR:1 (6) | 
PUSHL 
PUSHAL Sc EaCeat 
PUSHL ¥cSer GBL!SECSM_ PERM! SECSM_DZRO! SECSM_WRT> 
PUSHAL W°RETRA AGE | 
PUSHAL W*INRANG | 
CALLS” #8, it ‘. EREMAPSEC | 
CMPL :IF PREVIOUS GBL SECTION HASN'T 
BEQL $0086 'BEEN DELETED TRY CREMAPSEC AGAIN, | 
MOVAL O° CRAPSCERR.R1 | 
BSBW HECK1 | 
BRW 30085$ 
30084$: 
MOVL _——R1, W* INRANGE 
MOVL RO, W* INRANGE +4 
MOVZWL S*#SS$_NORMAL,R3 | 
30081$: 
CLRQ 0 =( SP) 
PUSHL 
PUSHL 5 
MOVZWL #0,-(SP) | 
PUSHL | 
PUSHL #0 
PUSHAQ W*GBLSECNAM 
PUSHL #<SECSM_ GBL! SECSM_PERM! SECSM_PFNMAP! SECSM_WRT> 
PUSHAG U“RETRANGE | 
PUSHAQ W* INRANGE 
CALLS a,-st $Y SSCRMPSC 
CMPL ;1F PREVIOUS GBL SECTION HASN'T 
EQL $00 [BEEN DELETED TRY CREMAPSEC AGAIN. 
MOVAL W*CRMPSCERR,R1 
BSBW = CHECK1 
30085$: 
740 DELTVA 
CMPW We WHI CHRUN, ARUNT ;IF USING MAPPED SECTIONS FOR TESTS, 
BLEQ 3008 4 ‘DELETE SECTION AND THEN DO A DELTVA 
PUSHAQ W*GBLSECNAM 
PUSHL 
CALLS ,G*SYSSDGBLSC 
30087$: 
MOVZWL S*#SS$_NORMAL,R3 
MOVAL  W* INRANGE ,RO 
VAL  W*RETRANGE,R1 
i BSBY  DELTVASUBR 
742 : CHECK RETURN RANGE LOGIC. IF RANGE IS FORWARD, THEN RETURN RANGE IS 
743 : FROM THE FIRST THROUGH THE LAST BYTE OF THE RANGE. IF BACKWARD, THEN 
744 : RETURN RANGE IS FROM Last THROUGH THE FIRST BYTE IN THE RA 
745 : THE RANGE IS ONE PAGE AND THE INPUT RANGE IS SPECIFIED AS 2 IDENTICAL 
r S ADDRESSES, THEN THE RETURN RANGE IS FORWARDS FOR PO SPACE, BACKWARDS FOR P1. 
74 ADDL3 #4,W*SAVEND,RO 
74 MAKEVA RO [SAME ADDRESS, PO SPACE 


30088$: 


CASEL W*WHICHRUN, #1, #RUNMAX 
.WORD 30090$-30088$ 


| 

;ADR NOT AT BEGIN OF PAGE | 
TIF FIRST RUN USE CRETVA. 

i 


] 
| 
| 
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MMGCROL SP - TEST OF SCRETVA/SDELTVA/SSETPRT SYSTEM 16-SEP-1984 01:57: AX/VMS Macro v04-00 Page 24 
v06 INITIALIZATION ae iSety fi Ohi b 58s ERMGYST.. SREIMMECROLSP.MAR: 1  %) 
* Opp -WORD 30091$- $ :1F SECOND USE GBL CREMAPSEC 
883 DD a ‘ORD $00928-300885 {TF THIRD USE Pra MAPPING 
9000: cF 0 06 DE MOVL RO, W*INRANGE 
0 p DE ROVE R W* INRANGE +4 
1 3C ODEA MOVZ2WL S*#SS$_NORMAL,R3 
50 OO'CR DE ODE MOVAL W*INRANGE,RO 
1 0 “GF F DF MOVAL W*RETRANGE,R1 
33¢ DF BSBW RETVASUBR | 
OBA 31 ODFA BRW 30093$ . 
000° CF D0 ObFD stip MOVL RO, WSINRANGE 
004° CE 28 00 £0g MOVL RO, W*INRANGE+4 
3 01 3C OF MOVZWL $*#SS$_NORMAL,R3 
EOA 30094$: 
99 DD EOA PUSHL a 
19 DD OE0C PUSHL #25 
F692 CF ODF EOE PUSHAL W*F ILENAME 
00 DD OE PUSHL # 
F684 CF DF O0E14 PUSHAL W“GBLSECNAM 
00004000 8F DD OF18 PUSHL  #<SECSM_GBL!SECSM_PERM! SECSM_DZRO! SECSM_wRT> 
0008 DF elf PUSHAL W*“RETRANGE 
0000' DF OE PUSHAL W* INRANGE 
QOO00000'EF 08 FB 0E26 CALLS #8. 1Bs CREMAPSEC 
50 0001828A 8F D1 OF2D CMPL #*X1828K,R :IF PREVIOUS GBL SECTION HASN'T 
D4 «13 0634 BEQL 300948 ‘BEEN DELETED TRY CREMAPSEC AGAIN. 
51 £602 CF i OE 36 MOVAL W*CRMPSCERR,R1 
O31E 0E38 BSBW CHECK 
0046 31 OE3E BRW 30093$ 
edt 30092$: 
0000'CF 50 DO 0E41 MOVL RO, W* INRANGE 
0004'CF 50 DO OE46 MOVL RO. W* INRANGE +4 
53 01 3C O48 MOVZWL S*#SS$_NORMAL,R3 
E4E 30089$: 
7E «7C EGE CLRQ 0s = (SP) 
00 DD OES PUSHL #0 
19 DD 0E52 PUSHL 425 
7E 00 3C O0E54 MOVZWL #0,-(SP) 
00 dD E97 PUSHL #0 
00 oD OE59 USHL 
F630 CFO O7F ESB PUSHAQ W*GBLSECNAM 
00014009 8F DD OESF PUSHL  #<SECS$M_GBL!SECSM_PERM! SECSM_PFNMAP! SECSM_WRT> 
00 DD O65 PUSHL #0 
‘CF «7F O67 PUSHAQ W*RETRANGE 
000'CE 7F OE6B PUSHAQ W*INRANGE 
00000000°GF OC FB EGF CALLS #1 SSTSSCRMPSC 
50 0001828A 8F D1 OE76 CMPL 6s #*X182BA,RO sIF PREVIOUS GBL SECTION HASN'T 
CF 13 OE7D BEQL [BEEN DELETED TRY CREMAPSEC AGAIN. 
51 £589 CF oF E7F MOVAL W*CRMPSCERR,R1 
0205 E84 BSBW CHECK! 
£87 30093$: 
£87 750 DELTVA :DELETE SAME ADDRESS PO SPACE 
01 0028'CF 81 0€87 MPW Wel | CHRUN, #RUNT [IF USING MAPPED SECTIONS FOR TESTS 
r 1 E C LEQ 3 095$ [DELETE SECTION AND THEN DO A DELTVA 
F608 CF oF E 6 PUSHAQ W*GBLSECNAM 
00 DD 0E94 PUSHL #0 


-—-o 


5 
5 


OOOOWOSOCO-oOnN 
RRO MHMOOOOCOM 


"So 
ss 
fe) 


TVA/SDELTVA/SSETPRT’SYSTER 197sEb= 1386 0130338 Yan Race 


30095$: 


30096$: 


30098$: 


30099$: 
30102$: 


30100$: 
30097$: 


30101$: 


© V04-00 Page 25 | mA 
SEP- MMGTST.SRCJMMGCROLSP.MAR; 1 * ti vO! 


CALLS #3,G*SYSS$DGBLSC 


) 


;P0 SPACE 1 PAGE FORWARD 


MOVZWL $*#SS$_NORMAL,R3 | 
MOVAL W*INRANGE,RO 
MOVAL W*RETRANGE,R1 
BSBW DEL TVASUBR 
W* INRANGE + :DIFFERENT ADDRESSES FORWARD 

[PO SPACE 1 PAGE FORWARD 
CASEL W*WHICHRUN, #1, #RUNMAX 
.WORD 30098$-30096$ y1F FIRST RUN USE CRETVA. 
“WORD 300998- $009 $ TIF SECOND USE GBL CREMAPSEC 
“wORD 30100$- vt [IF THIRD USE PFN MAPPING 
MOVZWL S*#SS$_NORMAL,R3 
MOVAL W*“INRANGE,RO 
MOVAL  W*RETRANGE,R1 
BSBW  _CRETVASUBR 
BRW 30101$ 
MOVZWL S*#SS$_NORMAL,R3 
PUSHL 
PUSHL #25 
PUSHAL W*FILENAME 
PUSHL #0 
PUSHAL W*GBLSECNAM 
USHL  #<SECSM_GBL!SECSM_PERM! SECSM_DZRO! SECSM_WRT> 
PUSHAL W*“RETRANGE 
PUSHAL W* INRANGE 
CALLS #8. 18s CREMAPSEC 
CMPL #*X1828K,RO ;1F PREVIOUS GBL SECTION HASN'T 
BEQL ‘BEEN DELETED TRY CREMAPSEC AGAIN. 
MOVAL W*CRMPSCERR,R1 
BSBW  CHECK1 
BRW 30101$ 
MOVZWL S*#SS$_NORMAL ,R3 
CLRQ 2s =( SP) 
PUSHL # 
PUSHL #25 
MOVZWL #0,-(SP) 
PUSHL @# 
PUSHL @# 
PUSHAQ W*GBLSECNAM 
PUSHL #<SECSH_GBL ! SECSM_PERM! SECSM_PFNMAP! SECSM_WRT> 
PUSHAQ W*RETRANGE 
PUSHAQ W* JNRANGE 
CALLS #1 SSUSSCRMPSC 
CMPL «= #*X{182BA LR :1F PREVIOUS GBL SECTION HASN'T 
BEQL 3009 ‘BEEN DELETED TRY CREMAPSEC AGAIN. 
MOVAL W*CRMPSCERR,R1 
BSBW CHECK! 

| 


F 3 
MMGCROL SP = TEST OF SCRETVA/SDELTVA/SSETPRT SYSTEM 16-S 1:57: AX/VMS Macro V04-00 Page 
Hiatt, INI FIALT TAT OM g-SEF- 1382 8} Bf 33 EAMG TST.SRCIMMGCROLSP.MAR:1 © hay 
01 0028'CF 8) F46 CMPW yoWH | CHRUN , ARUN! :1F USING MAPPED SECTIONS FOR 
F F4B BLEQ 10 SDELETE SECTION AND THEN WA 
0 pp F4D PUSHL @# 
F549 CF 7F OF4F PUSHAQ W*GBLSECNAM 
9 DD OF ; PUSHL Q 
00000000 ' GF FB F ; scene CALLS #3,G*SYSSDGBLSC 
01 3¢ (OFSC MOVZWL se4sss NORMAL ,R3 
50 CF DE OFSF MOVAL W*INRANGE,RO 
1 F F646 MOVAL U“RETRANGE. R1 
10 F69 BSBW  DELTVASUBR 
50  0000' D a 754 MOva W* INRANGE , RO ;REVERSE THE RANGE 
F 755 MAKEVA R :1 PAGE BACKWARDS, PO SPACE 
03 01 OO28'CF CF F } seen CAgeL see are WRUNMAX 
0006: o 7 WORD sIF FIRST PUN USE CRETVA. 
F79 “WORD SIF SECOND USE GBL CREMAPSEC 
0067" f 8 wv WORD a1 O18 SIF THIRD USE PFN MAPPING 
0000'CF 51 DO OF7D mOVL Ri “2 INRANGE 
0004" CF 0 b0 FB2 RANGE +4 
3 601 C OF HOVIUL ee yess. NORMAL ,R3 
50 O000'CF DE OFBA MOVAL W*INRANGE,R 
51 0008 CF OF BF MOVAL UAETRANGE R1 
008A 31 0F97 BRW 30 0109% 
OF 9A 30107$: 
0000'CF 51 DO OF9A MOVL ——R1, W* INRANGE 
0004'CF 50 v0 OF 9F MOVL RO. W*INRANGE+4 
53 01 «3C (OFA4 MOVZWL S“#SS$_NORMAL,R3 
OFA7 30110$: 
00 DD OFA7 PUSHL 
19 DD OFA PUSHL #25 
FOFS CF ODF =6OFAB PUSHAL WF ILENAME 
00 DD OFAF PUSHL #0 
F4E7 CF DF = OFBI PUSHAL W*GBLSECNAM 
0000400D 8F OD OFBS PUSHL  #<SECSM_GBL!SECSM_PERM! SECSM_DZRO! SECSM_WRT> 
0008'CF OF OFBB PUSHAL W*RETRANGE 
0000'CF DF OFBF PUSHAL vein NRANGE 
Q0000000'EF 08 FB OFC3 CALLS #8. Bs EREMAPSEC 
50 0001828 8F D1 OFCA CMPL :IF PREVIOUS GBL SECTION HASN'T 
04 13 OFDI BEQL ‘BEEN DELETED TRY CREMAPSEC AGAIN. 
51 F465 CF i FD3 MOVAL W"CRMPSCERR.R1 
018) FDB BSBW CHECK] 
046 31 OFDB BRW 30109$ 
FDE 30108: 
0000'CF 51 D0 FD MOVL _——R1, W* INRANGE 
0004°CF 50 p FE MOVL RO. W*INRANGE+4 
5301 C OFE MOVZ2WL S*#SS$_NORMAL,R3 
FEB 301058: 
7E 7C OFEB -(SP) 
00 DD OFED PUSHL # 
1 D OFEF PUSHL #25 
7E C OFFI MOVZWL #0,-(SP) 
DD OFF4 PUSHL # 
D FFG PUSHL @ 
F4AO CF O7F_ OOF F PUSHAQ W*GBLSECNAM 


Sz 
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00014009 er 
‘CF 


op 
mS Fa 


51 rate 


0028' CF 
F 
F468 


0 

o 

00000000 ' GF 3 
53.01 

50 0000'CF 
0008' CF 
0100 
000C CF 
0028'CF 


01 


03 


0000! CF 
0004 CF 
53 

F417 

£409 ¢ 

00004000 8F 

008" CF 


000 


50 O001828A BF 


woo TS 1NCo 


—s 
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mn 
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TVA/SDELTVA/SSETPRT SYSTEM 1g° 


756 


30109$: 


301118: 


30112$: 


30114$: 


30115$: 


301188: 


301168: 


DELTVA 


MOVL 
MAKEVA 


SEP=-1984 01:57: AX/VMS Macro v04-00 Page a, 

~$Fb=} 387 ES YRMGTST. SREIAMOCROL SP.MAR: 1 . 
PUSHL #<SECSM_GBL ! SECSM_PERM! SECSM_PFNMAP! SECSM_WRT> 
PUSHAQ W*RETRANGE 
PUSHAQ wW* ANGE 
CALL me + alas 
CMPL A,R :1F PREVIOUS GBL SECTION HASN'T 
BEQL 1 :BEEN DELETED TRY CREMAPSEC AGAIN. 
MOVAL W*CRMPSCERR,R1 

SBW CHECK1 
31 PAGE BACKWARDS, PO SPACE 

CMP Yel cm eae ;1F USING MAPPED SECTIONS FOR TESTS, 
ntl 3 11 ;DELETE SECTION AND THEN DO A DELTVA 
PUSHAQ W*GBLSECNAM 
PUSHL q 
CALLS #3,G6*SYSS$DGBLSC 
MOVZWL patene NORMAL ,R3 
MOVAL NRANGE ,RO 
MOVAL 


DAAE TRANCE’ R1 
BSBW  DELTVASUBR 
W*RETRANGE +4 ,RO 


;CREATE 1 PAGE P1 SPACE 
CASEL W°WHICHRUN, #1, #RUNMAX 


«WORD 30114$-30112$ sIF FIRST RUN USE CRETVA. 
“WORD 30115$-3011 $ [IF SECOND USE GBL CREMAPSEC 
“WORD 30116$-30112$ ‘IF THI 
MOVL RO, W* INRANGE 
OVL RO.wW* INRANGE +4 
MOVZWL S*#SS$_NORMAL,R3 
MOVAL W*INRANGE,RO 
MOVAL W*RETRANGE,R1 
BSBW RETVAS 
BRW 3011 
MOVL Rd, ,W* INRANGE 
MOVL W* INRANGE +4 
MOVZWL Bo pess _NORMAL ,R3 
PUSHL 49 
PUSHL #25 
PUSHAL W*F ILENAME 
PUSHL #0 
PUSHAL W*°GBLS 
PUSHL Pitt GBL!SECSM. PERM! SECSM_DZRO! SECSM_WRT> 
PUSHAL W°RETR TRANG GE 
PUSHAL W*INRAN 
CALLS #8 t :. ERERAPSEC 
CMPL «860s #* X18 28K :1F PREVIOUS GBL SECTION HASN'T 
BEQL ‘BEEN DELETED TRY CREMAPSEC AGAIN. 
MOVAL W*CRMPSCERR,R1 
BSBW ECK1 
BRW 301178 


Aba 
| 
j 


ream 


mee 
: 
7E 3 
100 i 
i 


01 0028'CF 

OF 

00 

F38D 60 
00000000° GF 3 


03 0020'CF  O01C'CF 
F3D4 


FS1A 


a a wt ss tn a nt ss st st ss row 


301138: 


30117$: 
759 


30119$: 


760 

761 ; 

762 ;END OF 
763 ; 

764 

765 150$: 
766 

767 160$: 
768 


DELTVA 


LOOP 


AOBLEQ 
BRW 


TVA/SDELTVA/SSETPRT"SYSTER Meee nae Oiieeies 


P=] 

MOVL RO. W* INRANGE 
MOVE RO, W* INRANGE +4 
MOVZWL S*#SS$_NORMAL ,R3 
LRQ 0s = (SP) 

PUSHL # 

USHL #25 
MOVZWL #0,-(SP) 

PUSHL @# 

USHL @ 

PUSHAQ W*GBLSECN 

USHL  #<SEC 

USHL #0 

PUSHAQ W*RETRANGE 
PUSHAQ Ws JNRANGE 

CALLS #1 SEYSSCRMPSC 
CMPLw* xf ; A,RO 

3011 
MOVAL W*CRMPSCERR,R1 
CHECK1 

CMPW 39s W*WHICHRUN, #RUN1 
BLEQ  30119$ 

PUSHL @# 

PUSHAQ W*GBLSECNAM 
PUSHL # 

CALLS #3,G*SYSSDGBLSC 
MOVZWL S*#SS$_NORMAL,R3 
MOVAL W*INRANGE,R 
MOVAL W*RETRANGE,R1 
BSBW  DELTVASUBR 


W*MAXPASSCNT ,W*PASSCNT, 160$ 
MAIN_PROGRAM 


RSTART 


v04-00 


cro Page 28 aa 
RCIMMGCROLSP.MAR:1 9 (6) 0s 


AX/VMS Ma 
MMGTST.S 


AM 
$M_GBL ! SECSM_PERM! SECSM_PFNMAP! SECSM_WRT> 


CTION HASN'T 
REMAPSEC AGAIN. 


ETE 1 PAGE P1 SPACE 
USING MAPPED SECTIONS FOR TESTS, 
ETE SECTION AND THEN DO A DELTVA 


- TEST OF $CR TVA/SDELTVA/SSETPRT | everen 16-SEP=1 1:57: AX/VM 0 v04-00 Page 29 mm 
yoecoob. SUBROUTINES 15 UA CALL THE SERVICES g- -SEP=1 198 8} ef 33 YANG T. SRCJMMGCROLSP.MAR; 1 3) VvOé 
1 770 .SBTTL SUBROUTINES TO CALL THE SERVICES 
1 Hs > INPUT 
11 74 : RO = INADR 
11 ae : RI = RETADR 
1} 6 5 R3 = DESIRED STATUS 52 
1 6 re ; OUTPUT: 2 
1 6 , 0; ; R2 PRESERVED 4C 
i ; 5 ERETVASUBR: $ (RO), (R1) 5. 
51 £2DD CF DE 1148 784 MOVAL “W*CRETVAERR,R1 ;ERROR CONTROL STRING 2 
12 «11 1148 , s, BRB CHECK1 
114A 7 5 : INPUT 
110A ; § : RO = INADR 52 
114A 790: R1 = RETADR 2° 
114A 731 ; R3 = DESIRED STATUS 2} 
114A 738 : OUTPUT: 21 
114A 795 ; R2 PRESERVED 35 
114k 797 BELTVASUBR: OS Gao) cat 
51 F2D1 CF ODE 1137 199 phim l MOVAL “W*DELTVAERR,R1 SERROR CONTROL STRING 
53 50 01 113¢ 01 CPL RO, RS s STATUS AS D DESIRED 4 
53 0244 ar i 110) 08 CnPt #SS$_VASFULL,R3 Z1F EXPECTING VIRTUAL ADDRESS 7} 
07 12 #116 04 BNEQ 133 ” sSPACE FULL THEN EXCEEDS C 
50 1c Bi 1168 05 CMPW =: #SS$_EXQUOTA,RO SQUOTA MAY ALSO BE RETURNED 20 
4D 13 1168 06 BEQL 108 30 
elise Her 88 15$: ahi " 45 
53 01 681 116F 809 |  CMPW  #SS$_NORMAL,R3 7 EXPECTING NORMAL “ 
etn i COMPLETION FOR CRWSE 
- 3 B 1179 1 te BEQL 108” CMAY BE RETUR NED 
54 04 it BO 1198 tiers MOVL  4(SP),R4 ;ADDRESS OF ERROR “ 
1181 815 SFAO_S (R1),MSGLEN,MSGBUFD,R4,RO,R3 e 
1181 18 INRANGE, INRANGE +4 .RETRANGE -RETRANGE +4 of 
9 1184 BT POPR #*M<R4> 
015 50 1186 18 BBM TYPEMSGBUF aw 
118A 820 108: 45 
00D «31 11BA By BRW RANGE CHK 7GO CHECK THE RETURN RANGE 20 
1180 § ; INPUT: 
; R1 = RETADR 
11D 3 ; R3 = DESIRED STATUS 4E 


MMGCROLSP = TEST OF SCRETVA/SDELTVA/SSETPRT 4 sveten 16S pol 4 7: AX/ vi © V04-00 Page 3 
y0Ls000 SUBROUTINE $ TO CALL THE SERVICES g-§ 138¢ it 5 33 EAMG MMGCROLSP.MAR:1 © 49 
11BD 827; Rs = PAGCNT 
1180 5 ; RS = REGION 
1180 5 : OUTPUT: 
1180 g : R2 PRESERVED 
118) 834 EXPREGSUBR: 
11BD 835 SEXPREG_S R4,(R1) 
51 F264 CF ODE 11¢¢ 3 ery MOVAL “BE RbREGERRY 1 ZERROR CONTROL STRING 
53 bD1 1101 = CMPL = RO, RB ;STATUS AS DESIRED? 
33 oY 11D4—sf § EQL 106 SBRANCH IF YES 
6 DD 1106 84.0 PUSHL 
56 04 AE 00 1108 841 MOVL Resp ),R6 s ADDRESS OF ERROR 
11D¢ BAe SFAO_S (R1),MSGLEN MSGBUFD, R6,RO,R3,R4,R5,- 
1196 Bi, RETRANGE , RE TRANG 
0040 0 BF A 1 B44 POPR en <R6> 
30 08 BA BSBu TYPERSGBUF 
0000'CF  0008' cr 0 120F Th 10$: MOVL  W*RETRANGE,W* INRANGE ;MAKE INPUT RANGE LOOK 
: 1 16 B48 DECL RG SLIKE CRETVA/DELTVA 
0004' CF 8600" ef a i if tt ADDLS +h UP INRANGE W* INRANGE +4 
11 4 B31 BRB RANGE ZAND CHECK THE RETURN RANGE 
‘ 88 | : INPUT: 
1956 | 855: RO = INADR 
1226 856 : R1 = RETADR 
1226 857: R3 = DESIRED STATUS 
1226 858 ; R4 = PROTECTION TO BE SET 
1226 859: R5 = DEISRED PREVIOUS PROTECTION (184 MEANS NOT SPECIFIED) 
6 860 ; R6 = ADDRESS TO RETURN PREVIOUS PROTECTION 
: 86 OUTPUT: 
1226 $64 : R2 PRESERVED 
1226 B66 SE TPRTSUBR: 
1 6 Bb SSETPRT_S (RO) (RD » RA, (RO) 
1 B68 IFNOWRT #1, (R65, 1 ;SKIP PREVIOUS PROTECTION CHECK 
123D 869 SIF IT WASN'T RETU 
55 10 91 1 ; CMPB ss #'1@4,R5 [OR IF IT WASN'T SPECIFIED 
66 03 a i ¢ Pare 4S cre) SOTHERWISE CHEC 
05 «12 4 78 saa BNEQ 208 SAND BRANCH IF iris WRONG 
53 50 D1 1247 875 CMPL  RO,R3 STATUS = DESIRED STATUS? 
4A 138 4A 4 a BEQL 4 ©=-_-30$ ‘BRANCH IF YES 
46C B7 "  PUSHL sR? 
57 04 4 BD i te B7 MOVL  4(SP),R7 “ADDRESS OF ERROR 
1 5 6 SFAO_S SETPRTERR,MSGLEN,MSGBUFD,R7,RO,R3,- 
1 INRANGE , INRANGE +4 , RE TRANGE , RE TRANGE #4, = 
1 : PREVPROT,RS 
128F POPL R? 


0078 


73 0010°CF 9 
70 
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8F 

51 He 
0008' CF 9 
000C "CF 
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WOOOOOO0O0O000 0000000 09000900 09 Cd Cd Cd Cd CD CD CDODCDOD 


tH S| “DOC OCOSOOOCOOCOOOO0O0O0O0 OO O@@ocncod 
DAL WN OOO NA NE WIN 9 OD NAME WP O ONO UNE 
. . * Dw 


SOoovT TT GTNAOAOoO 
NOP, OOVIW OO 


3 
0 


wo, 
= 
Oo 
ro 


W TYPEMSGBUF 


BBC ‘ wcTL Sy. RNGCHK,W*CTLFLG,40$ 
BLBC 

MOVG UP INRANGE RO 

CMPL 

BGTRU ‘ "yh 

BLSSU 


BBS 70,R0, 108 


; REQUESTED RANGE IS FORWARDS 


BICW #°X1FF,RO 
BISW #°X1FF ORI 
BRB 20$ 


BACKWARDS IN VIRTUAL ADDRESS SPACE 
tae #°X1FF,RO 


ICW #*X1FE-R1 

CMPL RO, W*RETRANGE 
BNEQ 

CMPL = R1,W*RETRANGE+4 
BEQL 4o$ 
PUSHL 

OVL 


” 4(SP),R3 
SFAO_S <wW*RANGERR>,MSGLEN,MSGBUFD,R3 
INRAN E. ~ INRANGE +4,RETRANGE RE TRAN 


a#*M< 
BSBW TYPEMSGBUF 


snenT SWen sects Bat 
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i BRANCH IF RANGE CHECK DISABLED 

F ERROR IN SERVICE, SKIP RANGE CHK 
‘RO = STARVA, R1 = ENDVA 
[WHICH DIRECT 


;BR 
BRANCH IF FORWARDS 
;FOR EQUAL, PO SPACE FORWARDS, P1 BA 


;FROM BYTE 0 OF STARTVA 
; THROUGH LAST BYTE OF ENDVA 


sLAST BYTE OF STARTVA 
; THROUGH FIRST BYTE OF ENDVA 
71S THIS WHAT WAS RETURNED? 


:FORMAT THE ERROR MESSAGE 
RESTORE SAVE REGISTER 
;OUTPUT THE ERROR MESSAGE 
;AND RETURN 


_ | 
eee att CC CC LL 
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y0es000 MISEELLANEOUS© SUB SUB Sor ines g-3tF 1382 it 35 +33 Yamer et. ene MMGCRDLSP.MAR;1 i) 
18 .SBTTL MISCELLANEOUS SUBROUTINES 
131 + TYPE A MESSAGE 
131 : MSGBUF IS THE ADDRESS OF THE BEGINNING OF THE STRING 
g ; MSGLEN CONTAINS THE SIZE (IN BYTES) OF THE STRING 
131 4 fTYPEMSGBUF : 
0 00¢0° CF pO 131 5 MOVL WAMSGLEN, R :SIZE TO RO 
O0E CF DE 131 : MOVAL WMS SGBU SADDRESS TO R1 
08 0010'CF O62 €1 131A 9 BBC act V SIDMSG. W*CTLFLG, 5$ :BRANCH IF NO PROCESS ID REQUIRED 
9904" CF DE 1 2 ’ MOVAL GBOFID,R SADDRESS INCLUDING PID MSG 
E' ¢ 30 L §-<RSGBUF<MSGBUF ID>, RO SINCLUDE EXTRA BYTES IN COUNT 
QOAG CF 51 v0 1 931 MOVL  R1,W*RAB+RABSL_RBF ;SET BUFFER ADDRESS 
O9E'CF 50 80 1 p 9 : MOVW = RO,W*RAB+RABSW_RSZ SAND SIZE 
1 3 SPUT  W*RAB ‘OUTPUT THE MESSAGE 
01 50 £9 3 3 4 BLBC ~— RO, 208 

41 3 7 20$:  $EXIT_S RO sEXIT WITH ERROR STATUS 
4A 938 : INPUTS: 
134A 940: O(SP) = ADDRESS OF ERROR 
4 41 : R1 = ADDRESS OF FORMAT CONTROL STRING 
4A $48 : OUTPUTS: 
4A 945 : R2 PRESERVED 
134A 947 PROBERR 

sk BUG HE ue 
1350 950 SFAO_S (R1),MSGLEN,MSGBUFD,RS5 

20 BA 1367 951 POPR” #*M<R5> 
FFAG 30 1369 93¢ BSBW §TYPEMSGBUF 
05 136c «(95 RSB 

1360 988 
136) 956 .END —s START 
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MMGCRDLSP 
Symbol table 
CODEPAGES 
CRETVAERR 
CRETVAERRADR 
CRETVA 

CRLF 
CRMPSCERR 
CRMPSCERRADR 
CRMPSCERRSIZ 
CTLSA_ 
CTLSA_ 
CTLSA_ 
CTLSA_ 
CTLSV_i 
CTL$V_ 
CTLS$V_ 

CTL$V 

CTLFLG 
DELTVAERR 
DELTVAERRADR 
DELTVAERRSIZ 
DELTVASUBR 
END 
EXPREGERR 
EXPREGERRADR 
EXPREGERRSIZ 
EXPREGSUBR 
GBL SE CNAMADR 


MMGCRDLSP 
Symbol table 


READERRSIZ 
RE TRANGE 
RSTART 


RUN1_MSG 
RUN1 “MSGADR 
RUN1 “MSGS1Z 


$s D 
SECSM_DZRO 
SECSM_GBL 
SECSM_PERM 
SECSM_PFNMAP 
ECSM-WRT 


SETPRTERR 
SETPRTERRADR 
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SIZ... 
SS$_ CREATED 
SS$~EXQUOTA 


SYSSRESUME 
SYSSSETPRT 
TYPEMSGBUF 
WHI CHRUN 
WRITERR 
WRITERRADR 
et A 
WRTPAGES 
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PSECT name Allocation PSECT No. Attributes 
ABS . 0 ( 8. 0( 0.) NOPIC  USR ON ABS LCL wae NOEXE NORD NOWRT NOVEC BYTE 
$ABS$ ( -») 01¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE R WRT NOVEC BYTE 
DATAO ( 386.) ¢ ( 2.) NOPIC USR CON REL LCL NOSHR NOEXE RD WRT NOVEC PAGE 
DATA 0 ( 48.) ( -) NOPIC USR CON REL LCL NOSHR NOEXE RD WRT NOVEC PAGE 
DATA2 ; 0 ( 48.) 4 ( -) NOPIC USR CON REL LCL NOSHR NOEXE RD NOWRT NOVEC PAGE 
CODE 1360 ( 4973.) 05 ¢( 5.) NOPIC  USR ON REL LCL NOSHR EXE RD NOWRT NOVEC PAGE 
gece eres See oer ene anre seme + 
H Performance indicators ; 
Phase Page faults CPU Time Elapsed Time 
Initialization 1 00 0200-09 0:00:00.72 
zounens processing 1 0:00:00.91 S's a 
5 00: Bele 3:9: 3-98 
Syabol table sort 00:00:01.4 0:00:03. 
Pas 284 00:00:05.01 0:00: 4-9) 
Symbol table output 0 00:00:00.17 00:00:00.73 
Psect synopsis output 00:00:00.04 00:00:00.24 
Cross-reference output bs $4 Set Be 
Assembler run totals 969 00:00:25.82 0:01:24.78 


The working set aware was 1950 pages. 

149717 ayers (293 pages) of virtual memory were used to buffer the intermediate c 

There were 50 pages of symbol table space allocated to hold 908 non-local and 139. ee symbols. 
956 source Lines were read in Pass 1, producing object records in Pass 2. 

59 pages of virtual memory were used to define 47 macros. 
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Macro Library name Macros defined 
“$52 2SDUAE: SYS.OBJJLIB.MLB;1 3 
“$255$DUA28 SYSLIBISTARLET. MLB;2 § 

TOTALS ‘all Libraries) 1 


1170 GETS were required to define 31 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1IS$:MMGCROLSP/OBJ=0BJ$:MMGCRDLSP MSRCS:MMGCRDLSP/UPDATE=(ENHS:MMGCRDLSP) +EXECMLS$/LIB 
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